home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Magazine / Issues / TwistDemo / Aminet / LocateViewer < prev    next >
Encoding:
Text File  |  1995-03-17  |  425 b   |  20 lines
  1. /**
  2.  * $Id$
  3.  *
  4.  * Extract Aminet archives
  5.  *
  6.  * Copyright © 1995 HiSoft. All Rights Reserved.
  7. **/
  8. OPTIONS RESULTS
  9.  
  10. ADDRESS Twist
  11. PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
  12. OPEN "Twist:AminetBase/Viewer.DB"
  13. options results
  14.  
  15.  
  16. ADDRESS COMMAND 'setenv aminetviewer `RequestFile SYS: TITLE="Select a the viewer file"`'
  17. x = open('input','env:aminetviewer','R')
  18. VIEWERPATH = readln('input')
  19. SETDBFORMFIELD "ViewerPath" VIEWERPATH
  20.